﻿Public Class frmUserCopy

    'Private Sub frmUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '    reset()
    '    getLawyer()
    '    getEmployee()
    'End Sub

    'Protected Sub getLawyer()
    '    Dim oUser As New cUser
    '    Dim oc As New cControl
    '    dgvLawyer.DataSource = oUser.select_User_Lawyer()
    '    oc.dgvHeader("អ្នកប្រើប្រាស់;200|លេខសម្ងាត់;150|សិទ្ធ;150|ឈ្មោះមេធាវី;200", dgvLawyer)
    'End Sub

    'Protected Sub getEmployee()
    '    Dim oUser As New cUser
    '    Dim oc As New cControl
    '    dgvEmployee.DataSource = oUser.select_User_Employee()
    '    oc.dgvHeader("អ្នកប្រើប្រាស់;200|លេខសម្ងាត់;150|សិទ្ធ;150|ឈ្មោះបុគ្គលិក;200", dgvEmployee)
    'End Sub

    'Private Sub ShowFormWithoutClose(ByVal frm As Form)
    '    frm.MdiParent = Me.MdiParent
    '    frm.ControlBox = False
    '    frm.ShowIcon = False
    '    frm.WindowState = FormWindowState.Maximized
    '    frm.Show()
    '    frm.BringToFront()
    'End Sub

    'Protected Sub reset()
    '    txtSearchLawyer.Clear()
    '    txtSearchLawyer.Focus()
    '    txtSearchEmployee.Clear()
    'End Sub

    'Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
    '    Close()
    'End Sub

    'Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
    '    ShowFormWithoutClose(frmUserEntry)
    'End Sub

    'Private Sub btnShowLawyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowLawyer.Click
    '    If dgvLawyer.Rows.Count > 0 Then
    '        MessageBox.Show("Show Lawyer")
    '    End If
    'End Sub
End Class